|
300
|
Can I add any break or divider line
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:ScrollBySingleLine := .F.
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:Add("Item 1")
h := oItems:Add()
oItems:SetProperty("ItemBreak",h,1/*SingleLine*/)
oItems:SetProperty("SelectableItem",h,.F.)
oItems:SetProperty("ItemHeight",h,6)
oItems:Add("Item 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
299
|
Can I change the default border of the tooltip, using your EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:ToolTipDelay := 1
oList:ToolTipWidth := 364
oList:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oList:SetProperty("Background",64/*exToolTipAppearance*/,0x1000000)
oList:Columns():Add("tootip"):ToolTip := "this is a tooltip assigned to a column"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
298
|
Can I change the background color for the tooltip
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:ToolTipDelay := 1
oList:ToolTipWidth := 364
oList:SetProperty("Background",65/*exToolTipBackColor*/,AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oList:Columns():Add("tootip"):ToolTip := "this is a tooltip assigned to a column"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
297
|
Does the tooltip support HTML format
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:ToolTipDelay := 1
oList:ToolTipWidth := 364
oList:Columns():Add("tootip"):ToolTip := "<font Tahoma;11>T</font>his is an HTML <b>tooltip</b> assigned to a <fgcolor=FF0000>column</fgcolor>"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
296
|
Can I change the forecolor for the tooltip
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:ToolTipDelay := 1
oList:ToolTipWidth := 364
oList:SetProperty("Background",66/*exToolTipForeColor*/,AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oList:Columns():Add("tootip"):ToolTip := "this is a tooltip assigned to a column"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
295
|
Can I change the foreground color for the tooltip
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:ToolTipDelay := 1
oList:ToolTipWidth := 364
oList:Columns():Add("tootip"):ToolTip := "<fgcolor=FF0000>this is a tooltip assigned to a column</fgcolor>"
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
294
|
Is there any function to limit the height of the items when I display it using multiple lines
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:ScrollBySingleLine := .T.
oList:Columns():Add("C1")
oList:Columns():Add("C2")
oItems := oList:Items()
h := oItems:Add("Cell 1")
oItems:SetProperty("Caption",h,1,"This is bit of text that's shown on multiple lines. This is bit of text that's shown on multiple lines.")
oItems:SetProperty("CellSingleLine",h,1,0/*exCaptionWordWrap*/)
oItems:SetProperty("ItemMaxHeight",h,48)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
293
|
Why I cannot center my cells in the column
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:DrawGridLines := -1/*exAllLines*/
oList:Columns():Add("Default"):Alignment := 1/*CenterAlignment*/
oList:Items():Add("item 1")
oList:Items():Add("item 2")
oList:Items():Add("item 3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
292
|
How can I align the cell to the left, center or to the right
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:DrawGridLines := -1/*exAllLines*/
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:SetProperty("CellHAlignment",oItems:Add("left"),0,0/*LeftAlignment*/)
oItems:SetProperty("CellHAlignment",oItems:Add("center"),0,1/*CenterAlignment*/)
oItems:SetProperty("CellHAlignment",oItems:Add("right"),0,2/*RightAlignment*/)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
291
|
How do I apply HTML format to a cell
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oList:SetProperty("HTMLPicture","p1","c:\exontrol\images\zipdisk.gif")
oList:SetProperty("HTMLPicture","p2","c:\exontrol\images\auction.gif")
oList:Columns():Add("Default")
oItems := oList:Items()
h := oItems:Add("The following item shows some of the HTML format supported:")
oItems:SetProperty("CellHAlignment",h,0,1/*CenterAlignment*/)
h := oItems:Add("<br>text icons <img>1</img>, <img>2</img>, ... pictures <img>p1</img>, <img>p2</img> <br><br>text <b>bold</b>, <i>italic</i>, <u>underline</u>, <s>strikeout</s>, ...<br><dotline>and so on...<br> <a>anchor</a> or <a2>hyperlink</a><br><fgcolor=FF0000>fgcolor</fgcolor> or <bgcolor=00FF00>bgcolor</bgcolor> ")
oItems:SetProperty("CaptionFormat",h,0,1/*exHTML*/)
oItems:SetProperty("CellSingleLine",h,0,0/*exCaptionWordWrap*/)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
290
|
How can I change the font for a cell
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oList:Items():Add("std font")
oItems := oList:Items()
oItems:SetProperty("CaptionFormat",oItems:Add("this <font tahoma;12>is a bit of text with</font> a different font"),0,1/*exHTML*/)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
289
|
How can I change the font for a cell
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL f
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oList:Items():Add("default font")
f := CreateObject("StdFont")
f:Name := "Tahoma"
f:Size := 12
oItems := oList:Items()
oItems:SetProperty("CellFont",oItems:Add("new font"),0,f)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
288
|
How can I change the font for entire item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL f
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oList:Items():Add("default font")
f := CreateObject("StdFont")
f:Name := "Tahoma"
f:Size := 12
oItems := oList:Items()
oItems:SetProperty("ItemFont",oItems:Add("new font"),f)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
287
|
How do I vertically align a cell
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:DrawGridLines := -1/*exAllLines*/
oList:Columns():Add("MultipleLine"):SetProperty("Def",16/*exCellSingleLine*/,.F.)
oList:Columns():Add("VAlign")
oItems := oList:Items()
h := oItems:Add("This is a bit of long text that should break the line")
oItems:SetProperty("Caption",h,1,"top")
oItems:SetProperty("CellVAlignment",h,1,0/*TopAlignment*/)
h := oItems:Add("This is a bit of long text that should break the line")
oItems:SetProperty("Caption",h,1,"middle")
oItems:SetProperty("CellVAlignment",h,1,1/*MiddleAlignment*/)
h := oItems:Add("This is a bit of long text that should break the line")
oItems:SetProperty("Caption",h,1,"bottom")
oItems:SetProperty("CellVAlignment",h,1,2/*BottomAlignment*/)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
286
|
How can I change the position of an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:Add("Item 1")
oItems:Add("Item 2")
oItems:SetProperty("ItemPosition",oItems:Add("Item 3"),0)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
285
|
How do I find an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:Add("Item 1")
oItems:Add("Item 2")
oItems:Add("Item 3")
oItems:SetProperty("ItemBold",oItems:FindItem("Item 2",0),.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
284
|
How can I insert a hyperlink or an anchor element
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems,oItems1
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Column")
oItems := oList:Items()
oItems:SetProperty("CaptionFormat",oItems:Add("Just an <a1>anchor</a> element ..."),0,1/*exHTML*/)
oItems1 := oList:Items()
oItems1:SetProperty("CaptionFormat",oItems1:Add("Just another <a2>anchor</a> element ..."),0,1/*exHTML*/)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
283
|
How do I find the handle of the item based on its index
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
h := oItems:Add("Item 1")
oItems:Add("Item 2")
oItems:Add("Item 3")
oItems:SetProperty("ItemBold",1,.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
282
|
How can I find the cell being clicked in a radio group
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:MarkSearchColumn := .F.
oList:SetProperty("SelBackColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,255,128 } ) , .F. ))
oList:SetProperty("SelForeColor",AutomationTranslateColor( GraMakeRGBColor ( { 0,0,0 } ) , .F. ))
oList:Columns():Add("C1")
oList:Columns():Add("C2")
oList:Columns():Add("C3")
oItems := oList:Items()
h := oItems:Add("Cell 1")
oItems:SetProperty("Caption",h,1,"Radio 1")
oItems:SetProperty("CellHasRadioButton",h,1,.T.)
oItems:SetProperty("CellRadioGroup",h,1,1234)
oItems:SetProperty("Caption",h,2,"Radio 2")
oItems:SetProperty("CellHasRadioButton",h,2,.T.)
oItems:SetProperty("CellRadioGroup",h,2,1234)
oItems:SetProperty("CellState",h,1,1)
oItems:CellChecked(1234,i,c)
oItems:SetProperty("CellBold",i,c,.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
281
|
Can I let the user to resize at runtime the specified item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:ScrollBySingleLine := .T.
oList:DrawGridLines := -1/*exAllLines*/
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:SetProperty("ItemAllowSizing",oItems:Add("resizable item"),.T.)
oItems:Add("not resizable item")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
280
|
How can I change the size ( width, height ) of the picture
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
h := oItems:Add("Item 1")
oItems:SetProperty("CellPicture",h,0,oList:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)"))
oItems:SetProperty("CellPictureWidth",h,0,24)
oItems:SetProperty("CellPictureHeight",h,0,24)
oItems:SetProperty("ItemHeight",h,32)
h := oItems:Add("Item 2")
oItems:SetProperty("CellPicture",h,0,oList:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)"))
oItems:SetProperty("ItemHeight",h,48)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
279
|
How can I find the number or the count of selected items
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:SingleSel := .F.
oList:Columns():Add("Default")
oItems := oList:Items()
h := oItems:Add("Item 1")
oItems:Add("Item 2")
oItems:Add("Item 3")
oItems:SetProperty("SelectItem",oItems:FirstVisibleItem(),.T.)
oItems:SetProperty("SelectItem",oItems:NextVisibleItem(oItems:FirstVisibleItem()),.T.)
oItems:Add(oItems:SelectCount())
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
278
|
How do I unselect an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
h := oItems:Add("Item 1")
oItems:Add("Item 2")
oItems:Add("Item 3")
oItems:SetProperty("SelectItem",h,.F.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
277
|
How do I find the selected item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
h := oItems:Add("Item 1")
oItems:Add("Item 2")
oItems:Add("Item 3")
oItems:SetProperty("SelectItem",h,.T.)
oItems:SetProperty("ItemBold",oItems:SelectedItem(0),.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
276
|
How do I un select all items
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:SingleSel := .F.
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:Add("Item 1")
oItems:Add("Item 2")
oItems:Add("Item 3")
oItems:UnselectAll()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
275
|
How do I select multiple items
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:SingleSel := .F.
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:Add("Item 1")
oItems:Add("Item 2")
oItems:Add("Item 3")
oItems:SetProperty("SelectItem",oItems:FirstVisibleItem(),.T.)
oItems:SetProperty("SelectItem",oItems:NextVisibleItem(oItems:FirstVisibleItem()),.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
274
|
How do I select all items
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:SingleSel := .F.
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:Add("Item 1")
oItems:Add("Item 2")
oItems:Add("Item 3")
oItems:SelectAll()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
273
|
How do I select an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:Add("Item 1")
oItems:Add("Item 2")
oItems:Add("Item 3")
oItems:SetProperty("SelectItem",oItems:NextVisibleItem(oItems:FocusItem()),.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
272
|
Can I display a button with some picture or icon inside
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:SetProperty("HTMLPicture","p1","c:\exontrol\images\zipdisk.gif")
oList:Columns():Add("C1")
oList:Columns():Add("C2")
oItems := oList:Items()
h := oItems:Add("Cell 1")
oItems:SetProperty("Caption",h,1," Button <img>p1</img> ")
oItems:SetProperty("CaptionFormat",h,1,1/*exHTML*/)
oItems:SetProperty("CellHAlignment",h,1,2/*RightAlignment*/)
oItems:SetProperty("CellHasButton",h,1,.T.)
oItems:SetProperty("ItemHeight",h,48)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
271
|
Can I display a button with some picture or icon inside
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oList:Columns():Add("C1")
oList:Columns():Add("C2")
oItems := oList:Items()
h := oItems:Add("Cell 1")
oItems:SetProperty("Caption",h,1," Button <img>1</img> ")
oItems:SetProperty("CaptionFormat",h,1,1/*exHTML*/)
oItems:SetProperty("CellHAlignment",h,1,2/*RightAlignment*/)
oItems:SetProperty("CellHasButton",h,1,.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
270
|
Can I display a button with some icon inside
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oList:Columns():Add("C1")
oList:Columns():Add("C2")
oItems := oList:Items()
h := oItems:Add("Cell 1")
oItems:SetProperty("Caption",h,1," <img>1</img> ")
oItems:SetProperty("CaptionFormat",h,1,1/*exHTML*/)
oItems:SetProperty("CellHAlignment",h,1,2/*RightAlignment*/)
oItems:SetProperty("CellHasButton",h,1,.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
269
|
How can I assign multiple icon/picture to a cell
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:SetProperty("HTMLPicture","p1","c:\exontrol\images\zipdisk.gif")
oList:SetProperty("HTMLPicture","p2","c:\exontrol\images\auction.gif")
oList:Columns():Add("Default")
oItems := oList:Items()
h := oItems:Add("text <img>p1</img> another picture <img>p2</img> and so on")
oItems:SetProperty("CaptionFormat",h,0,1/*exHTML*/)
oItems:SetProperty("CellPicture",h,0,oList:ExecuteTemplate("loadpicture(`c:\exontrol\images\colorize.gif`)"))
oItems:SetProperty("ItemHeight",h,48)
oItems:Add("Item 2")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
268
|
How can I assign an icon/picture to a cell
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
h := oItems:Add("Item 1")
oItems:SetProperty("CellPicture",h,0,oList:ExecuteTemplate("loadpicture(`c:\exontrol\images\zipdisk.gif`)"))
oItems:SetProperty("ItemHeight",h,48)
oItems:Add("Item 2")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
267
|
How can I assign multiple icons/pictures to a cell
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oList:Columns():Add("Default")
oItems := oList:Items()
h := oItems:Add("Item <img>1</img> 1, <img>2</img>, ... and so on ")
oItems:SetProperty("CaptionFormat",h,0,1/*exHTML*/)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
266
|
How can I assign multiple icons/pictures to a cell
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oList:Columns():Add("Default")
oItems := oList:Items()
h := oItems:Add("Item 1")
oItems:SetProperty("CellImages",h,0,"1,2,3")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
265
|
How can I assign an icon/picture to a cell
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Images("gBJJgBAIDAAGAAEAAQhYAf8Pf4hh0QihCJo2AEZjQAjEZFEaIEaEEaAIAkcbk0olUrlktl0vmExmUzmk1m03nE5nU7nk9n0/oFBoVDolFo1HpFJpVLplNp1PqFRqVTqlVq1XrFZrVbrldr1fsFhsVjslls1ntFptVrtltt1vuFxuVzul1u13vF5vV7vl9v1/wGBwWDwmFw2HxGJxWLxmNx0xiFdyOTh8Tf9ZymXx+QytcyNgz8r0OblWjyWds+m0ka1Vf1ta1+r1mos2xrG2xeZ0+a0W0qOx3GO4NV3WeyvD2XJ5XL5nN51aiw+lfSj0gkUkAEllHanHI5j/cHg8EZf7w8vl8j4f/qfEZeB09/vjLAB30+kZQAP/P5/H6/yNAOAEAwCjMBwFAEDwJBMDwLBYAP2/8Hv8/gAGAD8LQs9w/nhDY/oygIA=")
oList:Columns():Add("Default")
oItems := oList:Items()
h := oItems:Add("Item 1")
oItems:SetProperty("CellImage",h,0,1)
oItems:SetProperty("CellImage",oItems:Add("Item 2"),0,2)
oItems:SetProperty("CellImage",oItems:Add("Item 3"),0,3)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
264
|
How can I display a button inside the item or cell
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("C1")
oList:Columns():Add("C2")
oItems := oList:Items()
h := oItems:Add("Cell 1")
oItems:SetProperty("Caption",h,1," Button 1 ")
oItems:SetProperty("CellHAlignment",h,1,2/*RightAlignment*/)
oItems:SetProperty("CellHasButton",h,1,.T.)
h := oItems:Add("Cell 2")
oItems:SetProperty("Caption",h,1," Button 2 ")
oItems:SetProperty("CellHAlignment",h,1,1/*CenterAlignment*/)
oItems:SetProperty("CellHasButton",h,1,.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
263
|
How can I change the state of a radio button
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:MarkSearchColumn := .F.
oList:SetProperty("SelBackColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,255,128 } ) , .F. ))
oList:SetProperty("SelForeColor",AutomationTranslateColor( GraMakeRGBColor ( { 0,0,0 } ) , .F. ))
oList:Columns():Add("C1")
oList:Columns():Add("C2")
oList:Columns():Add("C3")
oItems := oList:Items()
h := oItems:Add("Cell 1")
oItems:SetProperty("Caption",h,1,"Radio 1")
oItems:SetProperty("CellHasRadioButton",h,1,.T.)
oItems:SetProperty("CellRadioGroup",h,1,1234)
oItems:SetProperty("Caption",h,2,"Radio 2")
oItems:SetProperty("CellHasRadioButton",h,2,.T.)
oItems:SetProperty("CellRadioGroup",h,2,1234)
oItems:SetProperty("CellState",h,1,1)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
262
|
How can I assign a radio button to a cell
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:MarkSearchColumn := .F.
oList:SetProperty("SelBackColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,255,128 } ) , .F. ))
oList:SetProperty("SelForeColor",AutomationTranslateColor( GraMakeRGBColor ( { 0,0,0 } ) , .F. ))
oList:Columns():Add("C1")
oList:Columns():Add("C2")
oList:Columns():Add("C3")
oItems := oList:Items()
h := oItems:Add("Cell 1")
oItems:SetProperty("Caption",h,1,"Radio 1")
oItems:SetProperty("CellHasRadioButton",h,1,.T.)
oItems:SetProperty("CellRadioGroup",h,1,1234)
oItems:SetProperty("Caption",h,2,"Radio 2")
oItems:SetProperty("CellHasRadioButton",h,2,.T.)
oItems:SetProperty("CellRadioGroup",h,2,1234)
oItems:SetProperty("CellState",h,1,1)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
261
|
How can I change the state of a checkbox
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("C1")
oList:Columns():Add("C2")
oItems := oList:Items()
h := oItems:Add("Cell 1")
oItems:SetProperty("Caption",h,1,"Check Box")
oItems:SetProperty("CellHasCheckBox",h,1,.T.)
oItems:SetProperty("CellState",h,1,1)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
260
|
How can I assign a checkbox to a cell
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("C1")
oList:Columns():Add("C2")
oItems := oList:Items()
h := oItems:Add("Cell 1")
oItems:SetProperty("Caption",h,1,"Check Box")
oItems:SetProperty("CellHasCheckBox",h,1,.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
259
|
How can I display an item or a cell on multiple lines
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:ScrollBySingleLine := .T.
oList:Columns():Add("C1")
oList:Columns():Add("C2")
oItems := oList:Items()
h := oItems:Add("Cell 1")
oItems:SetProperty("Caption",h,1,"This is bit of text that's shown on multiple lines")
oItems:SetProperty("CellSingleLine",h,1,0/*exCaptionWordWrap*/)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
258
|
How can I assign a tooltip to a cell
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("C1")
oList:Columns():Add("C2")
oItems := oList:Items()
h := oItems:Add("Cell 1")
oItems:SetProperty("Caption",h,1,"tooltip")
oItems:SetProperty("CellToolTip",h,1,"This is bit of text that's shown when the user hovers the cell")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
257
|
How can I associate an extra data to a cell
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("C1")
oList:Columns():Add("C2")
oItems := oList:Items()
h := oItems:Add("Cell 1")
oItems:SetProperty("Caption",h,1,"Cell 2")
oItems:SetProperty("CellData",h,1,"your extra data")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
256
|
How do I enable or disable a cell
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("C1")
oList:Columns():Add("C2")
oItems := oList:Items()
h := oItems:Add("Cell 1")
oItems:SetProperty("Caption",h,1,"Cell 2")
oItems:SetProperty("CellEnabled",h,1,.F.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
255
|
How do I change the cell's foreground color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("C1")
oList:Columns():Add("C2")
oItems := oList:Items()
h := oItems:Add("Cell 1")
oItems:SetProperty("Caption",h,1,"Cell 2")
oItems:SetProperty("CellForeColor",h,1,AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
254
|
How do I change the visual effect for the cell, using your EBN files
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oList:Columns():Add("C1")
oList:Columns():Add("C2")
oItems := oList:Items()
h := oItems:Add("Cell 1")
oItems:SetProperty("Caption",h,1,"Cell 2")
oItems:SetProperty("CellBackColor",h,1,0x1000000)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
253
|
How do I change the cell's background color
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("C1")
oList:Columns():Add("C2")
oItems := oList:Items()
h := oItems:Add("Cell 1")
oItems:SetProperty("Caption",h,1,"Cell 2")
oItems:SetProperty("CellBackColor",h,1,AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
252
|
How do I change the caption or value for a particular cell
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("C1")
oList:Columns():Add("C2")
oItems := oList:Items()
oItems:SetProperty("Caption",oItems:Add("Cell 1"),1,"Cell 2")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
251
|
How do I retrieve the focused item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:Add("Item 1")
oItems:Add("Item 2")
oItems:Add("Item 3")
oItems:SetProperty("ItemBold",oItems:FocusItem(),.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
250
|
How do I enumerate the visible items
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
h := oItems:Add("Item 1")
h := oItems:Add("Item 2")
oItems:SetProperty("ItemBold",oItems:FirstVisibleItem(),.T.)
oItems:SetProperty("ItemBold",oItems:NextVisibleItem(oItems:FirstVisibleItem()),.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
249
|
How can I make an item unselectable, or not selectable
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Column")
oItems := oList:Items()
h := oItems:Add("unselectable - you can't get selected")
oItems:SetProperty("SelectableItem",h,.F.)
oItems:Add("selectable")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
248
|
How can I hide or show an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Column")
oItems := oList:Items()
h := oItems:Add("hidden")
oItems:SetProperty("ItemHeight",h,0)
oItems:SetProperty("SelectableItem",h,.F.)
oItems:Add("visible")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
247
|
How can I change the height for all items
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:DefaultItemHeight := 32
oList:Columns():Add("Column")
oList:Items():Add("One")
oList:Items():Add("Two")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
246
|
How do I change the height of an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:ScrollBySingleLine := .T.
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:SetProperty("ItemHeight",oItems:Add("height"),128)
oList:Items():Add("enabled")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
245
|
How do I disable or enable an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:SetProperty("EnableItem",oItems:Add("disabled"),.F.)
oList:Items():Add("enabled")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
244
|
How do I display as strikeout a cell
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:SetProperty("CellStrikeOut",oItems:Add("strikeout"),0,.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
243
|
How do I display as strikeout a cell or an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:SetProperty("CaptionFormat",oItems:Add("gets <s>strikeout</s> only a portion of text"),0,1/*exHTML*/)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
242
|
How do I display as strikeout an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:SetProperty("ItemStrikeOut",oItems:Add("strikeout"),.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
241
|
How do I underline a cell
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:SetProperty("CellUnderline",oItems:Add("underline"),0,.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
240
|
How do I underline a cell or an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:SetProperty("CaptionFormat",oItems:Add("gets <u>underline</u> only a portion of text"),0,1/*exHTML*/)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
239
|
How do I underline an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:SetProperty("ItemUnderline",oItems:Add("underline"),.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
238
|
How do I display as italic a cell
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:SetProperty("CellItalic",oItems:Add("italic"),0,.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
237
|
How do I display as italic a cell or an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:SetProperty("CaptionFormat",oItems:Add("gets <i>italic</i> only a portion of text"),0,1/*exHTML*/)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
236
|
How do I display as italic an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:SetProperty("ItemItalic",oItems:Add("italic"),.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
235
|
How do I bold a cell
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:SetProperty("CellBold",oItems:Add("bold"),0,.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
234
|
How do I bold a cell or an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:SetProperty("CaptionFormat",oItems:Add("gets <b>bold</b> only a portion of text"),0,1/*exHTML*/)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
233
|
How do I bold an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:SetProperty("ItemBold",oItems:Add("bold"),.T.)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
232
|
How do I change the foreground color for the item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:SetProperty("ItemForeColor",oItems:Add("Item"),AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
231
|
How do I change the visual appearance for the item, using your EBN technology
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:VisualAppearance():Add(1,"c:\exontrol\images\normal.ebn")
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:SetProperty("ItemBackColor",oItems:Add("Item"),0x1000000)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
230
|
How do I change the background color for the item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:SetProperty("ItemBackColor",oItems:Add("Item"),AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
229
|
How do I associate an extra data to an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:SetProperty("ItemData",oItems:Add("item"),"your extra data")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
228
|
How do I programmatically edit a cell
PROCEDURE OnAfterCellEdit(oList,ItemIndex,ColIndex,NewCaption)
LOCAL oItems
oItems := oList:Items()
oItems:SetProperty("Caption",ItemIndex,ColIndex,NewCaption)
RETURN
PROCEDURE OnCancelCellEdit(oList,ItemIndex,ColIndex,Reserved)
LOCAL oItems
oItems := oList:Items()
oItems:SetProperty("Caption",ItemIndex,ColIndex,Reserved)
RETURN
PROCEDURE OnClick(oList)
LOCAL oItems
oItems := oList:Items()
oItems:Edit(oItems:FocusItem(),0)
RETURN
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:AfterCellEdit := {|ItemIndex,ColIndex,NewCaption| OnAfterCellEdit(oList,ItemIndex,ColIndex,NewCaption)} /*Occurs after data in the current cell is edited.*/
oList:CancelCellEdit := {|ItemIndex,ColIndex,Reserved| OnCancelCellEdit(oList,ItemIndex,ColIndex,Reserved)} /*Occurs if the edit operation is canceled.*/
oList:Click := {|| OnClick(oList)} /*Occurs when the user presses and then releases the left mouse button over the list control.*/
oList:AllowEdit := .T.
oList:Columns():Add("Default")
oItems := oList:Items()
oItems:Add("")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
227
|
How can I ensure or scroll the control so the item fits the control's client area
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
h := oList:Items:Add("item")
oList:Items():EnsureVisibleItem(h)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
226
|
How can I remove or delete all items
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oList:Items():Add("removed item")
oList:Items():RemoveAll()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
225
|
How can I remove or delete an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
h := oList:Items:Add("removed item")
oList:Items():Remove(h)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
224
|
How can I add or insert an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems
LOCAL oList
LOCAL h
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("C1")
oList:Columns():Add("C2")
oItems := oList:Items()
oItems:SetProperty("Caption",oItems:Add("Cell 1"),1,"Cell 2")
h := oItems:Add("Cell 3")
oItems:SetProperty("Caption",h,1,"Cell 4")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
223
|
How can I add or insert an item
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Default")
oList:Items():Add("new item")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
222
|
How can I get the columns as they are shown in the control's sortbar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oList
LOCAL var_Object
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
var_Object := oList:Columns:ItemBySortPosition(0)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
221
|
How can I access the properties of a column
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("A")
oList:Columns():Item("A"):HeaderBold := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
220
|
How can I remove all the columns
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Clear()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
219
|
How can I remove a column
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Remove("A")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
218
|
How can I get the number or the count of columns
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oList
LOCAL var_Count
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
var_Count := oList:Columns:Count()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
217
|
How can I change the font for all cells in the entire column
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oConditionalFormat
LOCAL oList
LOCAL f
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
f := CreateObject("StdFont")
f:Name := "Tahoma"
f:Size := 12
oConditionalFormat := oList:ConditionalFormats():Add("1")
oConditionalFormat:Font := f
oConditionalFormat:ApplyTo := 0/*exFormatToColumns*/
oList:Columns():Add("Column")
oList:Items():Add(0)
oList:Items():Add(1)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
216
|
How can I change the background color for all cells in the column
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL var_ConditionalFormat
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
var_ConditionalFormat := oList:ConditionalFormats:Add("1")
var_ConditionalFormat:SetProperty("BackColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
var_ConditionalFormat:ApplyTo := 0/*exFormatToColumns*/
oList:Columns():Add("Column")
oList:Items():Add(0)
oList:Items():Add(1)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
215
|
How can I change the foreground color for all cells in the column
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL var_ConditionalFormat
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
var_ConditionalFormat := oList:ConditionalFormats:Add("1")
var_ConditionalFormat:SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
var_ConditionalFormat:ApplyTo := 0/*exFormatToColumns*/
oList:Columns():Add("Column")
oList:Items():Add(0)
oList:Items():Add(1)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
214
|
How can I show as strikeout all cells in the column
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL var_ConditionalFormat
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
var_ConditionalFormat := oList:ConditionalFormats:Add("1")
var_ConditionalFormat:StrikeOut := .T.
var_ConditionalFormat:ApplyTo := 0/*exFormatToColumns*/
oList:Columns():Add("Column")
oList:Items():Add(0)
oList:Items():Add(1)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
213
|
How can I underline all cells in the column
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL var_ConditionalFormat
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
var_ConditionalFormat := oList:ConditionalFormats:Add("1")
var_ConditionalFormat:Underline := .T.
var_ConditionalFormat:ApplyTo := 0/*exFormatToColumns*/
oList:Columns():Add("Column")
oList:Items():Add(0)
oList:Items():Add(1)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
212
|
How can I show in italic all data in the column
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL var_ConditionalFormat
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
var_ConditionalFormat := oList:ConditionalFormats:Add("1")
var_ConditionalFormat:Italic := .T.
var_ConditionalFormat:ApplyTo := 0/*exFormatToColumns*/
oList:Columns():Add("Column")
oList:Items():Add(0)
oList:Items():Add(1)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
211
|
How can I bold the entire column
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL var_ConditionalFormat
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
var_ConditionalFormat := oList:ConditionalFormats:Add("1")
var_ConditionalFormat:Bold := .T.
var_ConditionalFormat:ApplyTo := 0/*exFormatToColumns*/
oList:Columns():Add("Column")
oList:Items():Add(0)
oList:Items():Add(1)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
210
|
How can I display a computed column and highlight some values that are negative or less than a value
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL var_ConditionalFormat
LOCAL oItems,oItems1
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("A")
oList:Columns():Add("B")
oList:Columns():Add("(A+B)*1.19"):ComputedField := "(%0 + %1) * 1.19"
oItems := oList:Items()
oItems:SetProperty("Caption",oItems:Add(1),1,2)
oItems1 := oList:Items()
oItems1:SetProperty("Caption",oItems1:Add(10),1,20)
var_ConditionalFormat := oList:ConditionalFormats:Add("%2 > 10")
var_ConditionalFormat:Bold := .T.
var_ConditionalFormat:SetProperty("ForeColor",AutomationTranslateColor( GraMakeRGBColor ( { 255,0,0 } ) , .F. ))
var_ConditionalFormat:ApplyTo := 2/*0x2+*/
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
209
|
Can I display a computed column so it displays the VAT, or SUM
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems,oItems1
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("A")
oList:Columns():Add("B")
oList:Columns():Add("(A+B)*1.19"):ComputedField := "(%0 + %1) * 1.19"
oItems := oList:Items()
oItems:SetProperty("Caption",oItems:Add(1),1,2)
oItems1 := oList:Items()
oItems1:SetProperty("Caption",oItems1:Add(10),1,20)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
208
|
How can I show a column that adds values in the cells
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oItems,oItems1
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("A")
oList:Columns():Add("B")
oList:Columns():Add("A+B"):ComputedField := "%0 + %1"
oItems := oList:Items()
oItems:SetProperty("Caption",oItems:Add(1),1,2)
oItems1 := oList:Items()
oItems1:SetProperty("Caption",oItems1:Add(10),1,20)
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
207
|
Is there any function to filter the control's data as I type, so the items being displayed include the typed characters
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL var_Column
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
var_Column := oList:Columns:Add("Filter")
var_Column:FilterOnType := .T.
var_Column:DisplayFilterButton := .T.
var_Column:AutoSearch := 1/*exContains*/
oList:Items():Add("Canada")
oList:Items():Add("USA")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
206
|
Is there any function to filter the control's data as I type, something like filter on type
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL var_Column
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
var_Column := oList:Columns:Add("Filter")
var_Column:FilterOnType := .T.
var_Column:DisplayFilterButton := .T.
oList:Items():Add("Canada")
oList:Items():Add("USA")
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
205
|
How can I programmatically filter a column
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oColumn
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oColumn := oList:Columns():Add("Filter")
oColumn:DisplayFilterButton := .T.
oColumn:FilterType := 2/*exNonBlanks*/
oList:Items():Add()
oList:Items():Add("not empty")
oList:ApplyFilter()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
204
|
How can I show or display the control's filter
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("Filter"):DisplayFilterButton := .T.
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
203
|
How can I customize the items being displayed in the drop down filter window
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oColumn
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oColumn := oList:Columns():Add("Custom Filter")
oColumn:DisplayFilterButton := .T.
oColumn:DisplayFilterPattern := .F.
oColumn:CustomFilter := "Excel Spreadsheets (*.xls )||*.xls|||Word Documents||*.doc|||Powerpoint Presentations||*.pps|||Text Documents (*.log,*.txt)||*.txt|*.log"
oColumn:FilterType := 3/*exPattern*/
oColumn:Filter := "*.xls"
oList:Items():Add("excel.xls")
oList:Items():Add("word.doc")
oList:Items():Add("pp.pps")
oList:Items():Add("text.txt")
oList:ApplyFilter()
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
202
|
How can I change the order or the position of the columns in the sort bar
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:SortBarVisible := .T.
oList:SortBarColumnWidth := 48
oList:Columns():Add("C1"):SortOrder := 1/*SortAscending*/
oList:Columns():Add("C2"):SortOrder := 2/*SortDescending*/
oList:Columns:Item("C2"):SortPosition := 0
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|
|
201
|
How do I arrange my columns on multiple levels
#include "AppEvent.ch"
#include "ActiveX.ch"
PROCEDURE Main
LOCAL oForm
LOCAL nEvent := 0, mp1 := NIL, mp2 := NIL, oXbp := NIL
LOCAL oList
oForm := XbpDialog():new( AppDesktop() )
oForm:drawingArea:clipChildren := .T.
oForm:create( ,,{100,100}, {640,480},, .F. )
oForm:close := {|| PostAppEvent( xbeP_Quit )}
oList := XbpActiveXControl():new( oForm:drawingArea )
oList:CLSID := "Exontrol.List.1" /*{1B0CA5A8-2107-4460-BBEE-F25F8801B2F6}*/
oList:create(,, {10,60},{610,370} )
oList:Columns():Add("S"):Width := 32
oList:Columns():Add("Level 2"):LevelKey := 1
oList:Columns():Add("Level 3"):LevelKey := 1
oList:Columns():Add("Level 4"):LevelKey := 1
oList:Columns():Add("Level 1"):LevelKey := "2"
oList:Columns():Add("Level 2"):LevelKey := "2"
oList:Columns():Add("Level 3"):LevelKey := "2"
oList:Columns():Add("Level 4"):LevelKey := "2"
oList:Columns():Add("E"):Width := 32
oForm:Show()
DO WHILE nEvent != xbeP_Quit
nEvent := AppEvent( @mp1, @mp2, @oXbp )
oXbp:handleEvent( nEvent, mp1, mp2 )
ENDDO
RETURN
|